<%@ Page Language="VB" %>

<script runat="server">
    Protected Sub Button1_Click(ByVal sender As Object, _
      ByVal e As System.EventArgs)

        Try
            Roles.AddUserToRole(TextBox1.Text, TextBox2.Text)
            Label1.Text = "Uytkownik pomylnie dodany do roli"
        Catch ex As Exception
            Label1.Text = ex.Message.ToString()
        End Try                     
    End Sub
</script>

<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
    <title>Strona gwna</title>
</head>
<body>
    <form id="form1" runat="server">
    <div>
        Dodaj nastpujcego uytkownika:<br />
        <asp:TextBox ID="TextBox1" runat="server"></asp:TextBox><br />
        <br />
        do roli:<br />
        <asp:TextBox ID="TextBox2" runat="server"></asp:TextBox><br />
        <br />
        <asp:Button ID="Button1" runat="server" Text="Dodaj uytkownika do roli" 
         OnClick="Button1_Click" /><br />
        <br />
        <asp:Label ID="Label1" runat="server"></asp:Label></div>
    </form>
</body>
</html>
